home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 13 / AMIGAplus Sonderheft 13 (1998)(ICP)(DE)[!].iso / rexx / snd.m2i < prev    next >
Text File  |  1997-11-18  |  340b  |  24 lines
  1. /* Change SoundTask flag, and save menu if needed */
  2. OPTIONS RESULTS
  3. ADDRESS "M2IPort.Rexx"
  4.  
  5.  REQUEST "Sound Task must be on?"
  6.  IF RC=0 THEN DO
  7.     SOUND OFF
  8.  END
  9.  ELSE DO
  10.     SOUND ON
  11.  END
  12.  
  13.  IF RC~=5 THEN DO
  14.     REQUEST "Save Menu?"
  15.     IF RC=1 THEN DO
  16.        SAVEMENU
  17.     END
  18.  END
  19.  ELSE DO
  20.     ERROR "The state doesn't change"
  21.  END
  22.  
  23. EXIT
  24.